home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / KEYBOARD KAPERS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  56 lines
  1. 10  REM  ******************************
  2. 20  REM  **     KEYBOARD KAPERS      **
  3. 30  REM  **     BY LES SCHMELTZ      **
  4. 40  REM  **   COPYRIGHT (C) 1982     **
  5. 50  REM  **   BY MICRO-SPARC INC     **
  6. 60  REM  **   LINCOLN, MA. 01773     **
  7. 70  REM  ******************************
  8. 80  HOME : VTAB 6: HTAB 13: INVERSE : PRINT "KEYBOARD KAPERS": NORMAL 
  9. 90  PRINT : PRINT  TAB( 13);"BY LES SCHMELTZ"
  10. 100  PRINT : PRINT "THIS PROGRAM WILL TEST YOUR RANGE OF"
  11. 110  PRINT : PRINT "KNOWLEDGE REGARDING TRIVIA, OLD SAYINGS"
  12. 120  PRINT : PRINT "AND OTHER USELESS FACTS.  THE HONOR"
  13. 130  PRINT : PRINT "SYSTEM OF SCORING WILL BE USED SINCE WE"
  14. 140  PRINT : PRINT "WON'T COVER LOGIC UNTIL NEXT TIME!"
  15. 150  PRINT : PRINT  TAB( 3);: INVERSE : PRINT "PRESS ANY KEY WHEN READY TO BEGIN": NORMAL : GET A$
  16. 160  HOME : PRINT "FILL IN THE WORD(S) MISSING FROM THESE"
  17. 170  PRINT "OLD SAYINGS.  PRESS RETURN AFTER EACH."
  18. 180  PRINT : INPUT "1. A STITCH IN TIME SAVES ----. ?";A1$
  19. 190  INPUT "2. I NEVER MET A --- I DIDN'T LIKE. ?";A2$
  20. 200  INPUT "3. KEEP THE HOME ----- BURNING. ?";A3$
  21. 210  INPUT "4. BETTER ---- THAN NEVER. ?";A4$
  22. 220  INPUT "5. A ---- IN HAND IS WORTH TWO IN THE      BUSH. ?";A5$
  23. 230  INPUT "6. A PENNY ----- IS A PENNY ------. ?";A6$,A7$
  24. 240  INPUT "7. PLAY IT AGAIN, ---. ?";A8$
  25. 250  INPUT "8. NO MAN IS AN ------. ?";A9$
  26. 260  INPUT "9. COLD HANDS, WARM -----. ?";B1$
  27. 270  INPUT "10. A ------- ----- GATHERS NO MOSS. ?";B2$,B3$
  28. 280  PRINT : PRINT "OK. LET'S SEE HOW YOU DID!"
  29. 290  READ C1$,C2$,C3$,C4$,C5$,C6$,C7$,C8$,C9$,D1$,D2$,D3$
  30. 300  PRINT "1. ";C1$,"2. ";C2$,"3. ";C3$
  31. 310  PRINT "4. ";C4$,"5. ";C5$,"6. ";C6$
  32. 320  PRINT "7. ";C7$,"8. ";C8$,"9. ";C9$
  33. 330  PRINT "10.";D1$,"11.";D2$,"12.";D3$
  34. 340  PRINT : PRINT  TAB( 7);: INVERSE : PRINT : PRINT "PRESS ANY KEY TO CONTINUE": NORMAL : GET A$
  35. 350  NORMAL : HOME : PRINT : PRINT "CAN YOU TYPE IN FIVE SINGLE LETTERS WHICH"
  36. 360  PRINT "SOUND LIKE A WORD CONTAINING THEM?": PRINT : PRINT "FOR EXAMPLE, 'B' SOUNDS LIKE BEE"
  37. 370  PRINT : PRINT : PRINT "TYPE IN YOUR LETTER. DO NOT PRESS RTN"
  38. 380  GET A$: PRINT A$: GET B$: PRINT B$: GET C$: PRINT C$: GET D$: PRINT D$: GET E$: PRINT E$
  39. 390  PRINT : PRINT "YOUR LETTERS WERE : ";A$;", ";B$;", ";C$;", ";D$;", ";E$
  40. 400  PRINT : PRINT "HERE'S A LIST OF 12.  ARE YOURS THERE?"
  41. 410  PRINT : PRINT "B (BEE)","C (SEA)","G (GEE)","I (AYE)","J (JAY)","K (KAY)","O (OH)","P (PEA)","Q (CUE)","T (TEA)","U (YOU)","Y (WHY)"
  42. 420  PRINT : PRINT  TAB( 7);: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE ": NORMAL : GET A$
  43. 430 X(0) = 2:X(1) = 13:X(2) = 52:X(3) = 20:X(4) = 24:X(5) = 255
  44. 440  HOME : PRINT : PRINT "LET'S TRY A FEW NUMBERS.  HOW MANY:": PRINT : PRINT 
  45. 450  INPUT "WEEKS IN A FORTNIGHT? ";Y(0): PRINT 
  46. 460  INPUT "IN A BAKER'S DOZEN? ";Y(1): PRINT 
  47. 470  INPUT "WORKING KEYS ON YOUR APPLE? ";Y(2): PRINT 
  48. 480  INPUT "IS A SCORE? ";Y(3): PRINT 
  49. 490  INPUT "VERTICAL LINES ON APPLE DISPLAY? ";Y(4): PRINT 
  50. 500  INPUT "CHARACTERS MAY A STRING CONTAIN? ";Y(5): PRINT 
  51. 510  PRINT : PRINT "I'LL BET YOU KNEW ALL THE ANSWERS!": PRINT : PRINT "THEY ARE: ";X(0);", ";X(1);", ";X(2);", ";X(3);", ";X(4);", ";X(5)
  52. 520  PRINT : PRINT  TAB( 7);: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE": NORMAL : GET A$
  53. 530  HOME : VTAB 8: PRINT "WE HAVE USED ONLY A FEW OF THE COMMANDS": PRINT : PRINT "DISCUSSED IN THE FIRST TWO ARTICLES.": PRINT 
  54. 540  PRINT "WHY NOT TRY ADDING A FEW LINES TO THIS": PRINT : PRINT "PROGRAM OR WRITING ONE OF YOUR OWN": PRINT 
  55. 550  PRINT "USING ALL THE COMMANDS YOU HAVE LEARNED": PRINT : PRINT "SO FAR?"
  56. 1000  DATA  NINE,MAN,FIRES,LATE,BIRD,SAVED,EARNED,SAM,ISLAND,HEART,ROLLING,STONE